home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PCMania 40
/
PCMania CD40_1.iso
/
render40
/
oca_a
/
luz.inc
< prev
next >
Wrap
Text File
|
1995-11-06
|
2KB
|
113 lines
#include "shapes.inc"
#include "texturas.inc"
#declare FLUORESCENTE=union{
light_source{ <.7, -3.5, 0> color rgb <1, 1, 1>}
light_source{ <-.7, -3.5, 0> color rgb <1, 1, 1>}
box { // PARTE_CENTRAL
<-1, -1, -1>, <1, 1, 1>
texture {
Pared finish{ ambient .2 diffuse .5}
}
scale <0.3, 4.0, 0.3>
}
box { // SUJETA_LUZ
<-1, -1, -1>, <1, 1, 1>
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.1, 0.3>
translate <0.3, -3.5, 0.0>
}
box { // SUJETA_LUZ1
<-1, -1, -1>, <1, 1, 1>
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.5, 0.1, 0.3>
translate <0.3, 3.5, 0.0>
}
cylinder { // LUZ
<0,0,1>, <0,0,0>, 1
texture {
Luz
}
no_shadow
scale <0.3, 0.3, 7.0>
rotate <-90.0, 0.000000, 0.0>
translate <.7, -3.5, 0.0>
}
cylinder { // LUZ1
<0,0,1>, <0,0,0>, 1
texture {
Luz
}
no_shadow
scale <0.3, 0.3, 7.0>
rotate <-90.0, 0.0, 0.0>
translate <-.7, -3.5, 0.0>
}
box { // SUJETA_LUZ2
<-1, -1, -1>, <1, 1, 1>
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.1, 0.3>
translate <-0.3, -3.5, 0.0>
}
box { // SUJETA_LUZ3
<-1, -1, -1>, <1, 1, 1>
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.1, 0.3>
translate <-0.3, 3.5, 0.0>
}
cylinder { // UNE_LUZ
<0,0,1>, <0,0,0>, 1
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.3, 0.3>
rotate <-90.0, 0.0, 0.0>
translate <.7, -3.6, 0.0>
}
cylinder { // UNE_LUZ1
<0,0,1>, <0,0,0>, 1
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.3, 0.3>
rotate <-90.0, 0.0, 0.0>
translate <.7, 3.6, 0.0>
}
cylinder { // UNE_LUZ2
<0,0,1>, <0,0,0>, 1
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.3, 0.3>
rotate <-90.0, 0.0, 0.0>
translate <-.7, 3.6, 0.0>
}
cylinder { // UNE_LUZ3
<0,0,1>, <0,0,0>, 1
texture {
Pared finish {ambient .2 diffuse .5}
}
scale <0.3, 0.3, 0.3>
rotate <-90.0, 0.0, 0.0>
translate <-.7, -3.6, 0.0>}
}